Winzipper/Winzipper_ISO.iso/programming/oracle7 7.2/NET/TCP22/TCP22.VRF

Text File | 1995-10-13 | 5.3 KB | 126 lines

/* Copyright (c) Oracle Corporation 1994.  All Rights Reserved */
/*****************************************************************************
  NAME
    tcp22.vrf - Windows 95 V3 installation verification script for
                TCP/IP Protocol Adapter.

  DESCRIPTION
    This script checks dependencies and environment settings for installation
    of the Windows 95 TCP/IP product.

  OWNER
    Lav Jain

  MODIFIED    DD-MMM-YY Reason
    trodgers  10-APR-92 Created.
    zkhan     11-AUG-93 Modified for SQLNET and for using V3.0.9.3.2 or later
            of the installer.
    eflores   06-APR-94 Modified for Windows NT.
    ljain     07-JUL-95 Modified for Windows 95.
*****************************************************************************/
{
 { doit = execute("%installer_home%\win95.vrf"); }
  [
    'UNBOUND_VARIABLE:
      {
        required_version = product_version(w95instver);
        temp = explode(required_version,".");
        required_version = implode(list(first(temp),first(rest(temp)),
                                        first(rest(rest(temp))),
                                        first(rest(rest(rest(temp))))),".");
        signal('failure,instantiate(nls("instver_too_early1","The version of
the Installer currently running is %%installer_version%%. The installation you
have chosen requires version %%required_version%% or later. Please run version
%%required_version%% or later in order to perform this installation.")));
      }
  ]


  if (not(doit) && (version_status == 'reinstall))
    doit = TRUE;

  if (doit)
  {
    protocol_prompt = nls("protocol_prompt", "The TCP/IP network protocol is currently not installed on your machine. Oracle TCP/IP Protocol Adapter cannot function without this network protocol. Would you still like to install it?");
    protocol_prompt_content = nls("protocol_prompt_content", "TCP/IP Protocol Not Installed");
    protocol_prompt_help = nls("protocol_prompt_help", "The TCP/IP network protocol is currently not installed on your machine. Oracle TCP/IP Protocol Adapter cannot function without this network protocol.

The TCP/IP network protocol enables data transfer on Local Area Networks (LANs), Wide Area Networks (WANs), and the Internet.

If you are not familiar with network transport protocols, please contact your network administrator.

YES installs the Oracle TCP/IP Protocol Adapter.

NO does not install the Oracle TCP/IP Protocol Adapter.");

    yes_ans = nls("yes_ans","Yes");
    no_ans = nls("no_ans","No");
    yes_no_list = list(yes_ans, no_ans);

    if(not(win32_key_exists("HKEY_LOCAL_MACHINE",
                            "System\CurrentControlSet\Services\VxD\MSTCP")))
    {
      ans = single_selection_dialog(protocol_prompt, yes_no_list, no_ans, protocol_prompt_content, protocol_prompt_help);
      if (ans == no_ans)
      {
        extract(products_for_installation, w95tcp22);
        doit = FALSE;
      }
    }
  }


  if (doit)
  {
    vrf_ratchet = "2.2.2.0.0";

    net2_register = nls("net2_register","Registering %%product_label%%...");

    net2_install_script = nls("net2_install_script","Installing %%product_label%% Installation Scripts...");

    net2_install_dll = nls("net2_install_dll","Installing %%product_label%% DLL's...");

    no_protocol = nls("no_protocol", "Oracle TCP/IP Protocol Adapter not installed.");

    tcp22_expl = nls("tcp22_expl", "A %%product_label%% DLL (NTTNT.DLL) is being used on this machine. Please stop all Oracle applications that are using %%product_label%% before installing %%product_label%%.

Silent mode installation of %%product_label%% terminated.");
    tcp22_inst = instantiate(nls("tcp22_inst", "A %%product_label%% DLL (NTTNT.DLL) is being used on this machine. Please stop all Oracle applications that are using %%product_label%% before installing %%product_label%%.

Choose OK after you have closed all Oracle applications and want to resume the installation of %%product_label%%.

Choose CANCEL to terminate the installation of %%product_label%%.
    "));
    tcp22_inst_term = instantiate(nls("tcp22_inst_term", "%%product_label%% installation terminated."));
    tcp22_inst_content = instantiate(nls("tcp22_inst_content", "%%product_label%% DLL Used"));
    tcp22_inst_help = instantiate(nls("tcp22_inst_help", "The Oracle Installer has detected that a %%product_label%% DLL (NTTNT.DLL) is being used on this machine.  Please stop all Oracle applications that are using %%product_label%% before installing %%product_label%%.

Choose OK after you have closed all Oracle applications and want to resume the installation of %%product_label%%.

Choose CANCEL to terminate the installation of %%product_label%%.
    "));


   done = FALSE;
   while(not(done))
   { move_file("%ORACLE_HOME%\bin\nttnt.dll", "%ORACLE_HOME%\bin\nttnt.dll");  done = TRUE;}
    [ 'PERMISSION_DENIED, 'INVALID_FILE_NAME, 'OS_ERROR, 'WRITE_ERROR:
      {
        if (silent_mode)
          signal('FAILURE, instantiate(tcp22_expl));
        else
          information_dialog(instantiate(tcp22_inst), tcp22_inst_content, instantiate(tcp22_inst_help));
      }
      'FILE_NOT_FOUND:
        done = TRUE;
    ]

    return(sum(dll,deinstl));
  }
  else
  {
    refresh_map_file = FALSE;
    return(0);
  }
}